#!/usr/bin/perl -w

my $foo;
my $bar;
$foo = 7;
$bar = "it is \"worth\" $foo";
print $bar;
